home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 551-575 / disk_556 / scheme2c / scheme-src.lzh / scrt / scinit.h < prev    next >
C/C++ Source or Header  |  1991-10-11  |  3KB  |  77 lines
  1. /* SCHEME->C */
  2.  
  3. /*              Copyright 1989 Digital Equipment Corporation
  4.  *                         All Rights Reserved
  5.  *
  6.  * Permission to use, copy, and modify this software and its documentation is
  7.  * hereby granted only under the following terms and conditions.  Both the
  8.  * above copyright notice and this permission notice must appear in all copies
  9.  * of the software, derivative works or modified versions, and any portions
  10.  * thereof, and both notices must appear in supporting documentation.
  11.  *
  12.  * Users of this software agree to the terms and conditions set forth herein,
  13.  * and hereby grant back to Digital a non-exclusive, unrestricted, royalty-free
  14.  * right and license under any changes, enhancements or extensions made to the
  15.  * core functions of the software, including but not limited to those affording
  16.  * compatibility with other hardware or software environments, but excluding
  17.  * applications which incorporate this software.  Users further agree to use
  18.  * their best efforts to return to Digital any such changes, enhancements or
  19.  * extensions that they make and inform Digital of noteworthy uses of this
  20.  * software.  Correspondence should be provided to Digital at:
  21.  * 
  22.  *                       Director of Licensing
  23.  *                       Western Research Laboratory
  24.  *                       Digital Equipment Corporation
  25.  *                       100 Hamilton Avenue
  26.  *                       Palo Alto, California  94301  
  27.  * 
  28.  * This software may be distributed (but not offered for sale or transferred
  29.  * for compensation) to third parties, provided such third parties agree to
  30.  * abide by the terms and conditions of this notice.  
  31.  * 
  32.  * THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
  33.  * WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
  34.  * MERCHANTABILITY AND FITNESS.   IN NO EVENT SHALL DIGITAL EQUIPMENT
  35.  * CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
  36.  * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
  37.  * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
  38.  * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  39.  * SOFTWARE.
  40. */
  41.  
  42. /* This module defines some basic global objects and initializes those parts
  43.    of the SCHEME->C runtime system which are written in C.  Included in
  44.    this initialization is the construction of the heap and the optional loading
  45.    of the heap from a file.  For compatibility with other modules, the routines
  46.    and Scheme globals provided by these routines appear as members of the
  47.    module "sc".
  48. */
  49.  
  50. #ifndef FILE
  51. #include <stdio.h>
  52. #endif
  53.  
  54. /* The I/O system is coded in Scheme and it uses the Standard I/O Subroutines
  55.    defined in (Section 3s of the Ultrix-32 manual).
  56. */
  57.  
  58. extern FILE  *sc_stdin,
  59.              *sc_stdout,
  60.              *sc_stderr;
  61.  
  62. /* Procedural interfaces in this module:  */
  63.  
  64. extern TSCP  sc_save_2dheap_v;
  65.  
  66. extern TSCP  sc_save_2dheap();
  67.  
  68. extern void  sc_restoreheap();
  69.  
  70. extern  sc__init();
  71.  
  72. extern  sc_error();
  73.  
  74. extern  TSCP  sc_implementation_v;
  75.  
  76. extern  TSCP  sc_implementation();
  77.